home *** CD-ROM | disk | FTP | other *** search
/ The Number 23 Press Kit / The Number 23 Press Kit.iso / pc / main.dxr / SCRIPTS_96_downloadNOW (OTHERS).ls < prev    next >
Encoding:
Text File  |  2007-01-31  |  1.4 KB  |  37 lines
  1. property mediaFolder, downloadFile, xTension
  2. global previewImage
  3.  
  4. on getPropertyDescriptionList me
  5.   description = [:]
  6.   addProp(description, #mediaFolder, [#default: EMPTY, #format: #string, #comment: "FOLDER:"])
  7.   addProp(description, #downloadFile, [#default: EMPTY, #format: #string, #comment: "FILE:"])
  8.   addProp(description, #xTension, [#default: EMPTY, #format: #string, #comment: ".EXT:"])
  9.   return description
  10. end
  11.  
  12. on runPropertyDialog me, description
  13.   myFile = new(xtra("fileio"))
  14.   fileLink = displayOpen(myFile)
  15.   myFile = 0
  16.   the itemDelimiter = fileSeperator()
  17.   mediaFolder = fileLink.item[fileLink.item.count - 1]
  18.   downloadFile = fileLink.item[fileLink.item.count]
  19.   the itemDelimiter = "."
  20.   xTension = downloadFile.item[2]
  21.   downloadFile = downloadFile.item[1]
  22.   setaProp(description, #mediaFolder, mediaFolder)
  23.   setaProp(description, #downloadFile, downloadFile)
  24.   setaProp(description, #xTension, xTension)
  25.   return description
  26. end
  27.  
  28. on mouseUp me
  29.   fileSeperator = fileSeperator()
  30.   projectName = "The Number 23"
  31.   savePath = baSysFolder("desktop")
  32.   savePath = savePath & projectName & fileSeperator
  33.   filePath = the moviePath & mediaFolder & fileSeperator & downloadFile & "." & xTension
  34.   saveFile = savePath & mediaFolder & fileSeperator & downloadFile & "." & xTension
  35.   copyFile = baCopyFileProgress(filePath, saveFile, "always", "download location", "cancel", 0)
  36. end
  37.